8) Izracunati zbir elemenata gornjeg i donjeg trougla kvadratne matrice matrice.



Sub zad8()
Dim a(100, 100) As Double, i As Long, j As Long, n As Long, sd As Double, sg As Double
n = Cells(1, 1)
For i = 1 To n
 For j = 1 To n
 a(i, j) = Cells(i + 1, j)
 Next
 Next
 sg = 0
For i = 1 To n
 For j = i + 1 To n
 sg = sg + a(i, j)
 Next
 Next
MsgBox ("Suma gornji" & sg)
sd = 0
For i = 2 To n
 For j = 1 To i - 1
 sd = sd + a(i, j)
 Next
 Next
 MsgBox ("Suma donji" & sd)
End Sub